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Introduction 


The Z80 Monitor makes it possible to control 
computers which use the CROMEMCO ZPUt™ from a 
terminal keyboard. It includes executive commands to 
examine and change memory, make a binary or an 
ASCII dump of memory, move and compare blocks 
of memory, output a byte of data to any port, read, 
write, and punch nulls on binary paper tapes, program 
2708 and 2704 PROMs using the CROMEMCO BYTE- 
SAVER, and initialize and control both serial ports on 
the CROMEMCO TUART. 

Transfer of control to a program in memory can 
be commanded from the keyboard with up to five 
breakpoints set and with the initial contents of the 
ZPU registers specified. When a breakpoint is en- 
countered during execution,.control is transferred 
back to the monitor and the contents of all 22 ZPU 
registers are stored. These register values can be exam- 
ined and changed before execution of the program 
is resumed. 


Entry Points 


The Z80 Monitor has three entry points. A 
cold-start entry at EOOO hex selects bank 0 on 
CROMEMCO memory boards and UART A on the 
CROMEMCO TUART. It initializes the baud rate of 
the UART to match that of the terminal being used. In 
addition, it saves the contents of the Z80 registers I, 
N (IFF), S (SP) , X (IX) , Y (TY) , A', B',C', D', E', 
F' , and H' (HL’) in the user-register area which is part 
of the system stack. (If the Z80 stack pointer is point- 
ing to RAM, then all registers except A and P (PC) will 
be saved.) The contents of these registers are restored 
when the monitor is exited by means of the GO 
command. 

The warm-start entry point at E008 hex is pro- 
vided so that the monitor can be re-entered without 
affecting the memory banks or the UART. The same 
registers are saved as for the cold-start entry point. 

The third entry point is used by the break- 
point facility. Entry here saves the contents of all 
registers. Memory banks and UART are unaffected. 


System Stack 


The monitor does not require the user to 
address a RAM board at a special place in memory for 
its stack and working storage area. (However, if the 
breakpoint facility is used, there must be either RAM 
at locations 30, 31, and 32 hex or PROM with the data 
C8, 45, EO hex at those locations.) The monitor finds 
the highest page of RAM active in the machine and 
places its stack and temporary storage area there. At 
least 60H or 96 bytes of this page must be reserved for 
system use. If the multiple command facility is used, 
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each additional command in a command line requires 
an additional 20 hex or 32 bytes stack room. (See 
Multiple Commands.) 


Command Format 


The Z80 Monitor is controlled by one and two- 
character commands from the terminal keyboard. The 
format is free-form with respect to spaces. 

In the following, DM is the Display Memory com- 
mand and S is the Swath operator (see below). The 
four examples are equivalent commands. They display 
the contents of 100 hex bytes of memory beginning 
with location 1000 hex. (‘ (CR) ’ indicates a carriage 
return.) 


DM1000 10FF (CR) 
DM1000S 100 (CR) 

D M_ 1000 10FF (CR) 
D M 1000 S 100 (CR) 


When entering an address as a operand, only the 
last four digits typed in are retained. For example, 
‘321000’ is read as ‘1000’. Therefore, if a wrong digit 
is entered, continue typing until the last four digits are 
correct. 

Only the last two digits typed are retained when a 
two-digit number such as a data byte is entered. 


Swath Operator 


There are two ways to specify the address 
range of many commands. The first is to simply list 
the beginning and ending addresses (and, where 
appropriate, the destination address). For example, the 
first command below programs the range 0 through 
13FF into PROMs starting at #400. The second com- 
mand displays the contents of memory between 
addresses E400 and E402. 


PO 13FF E400 
DME400 E402 


Another way to do the same thing is to use the 
Swath operator, S, to specify the width of the address 
range rather than state the ending address explicitly. 


PO $1400 E400 
DM E40083 


Multiple Commands: 
The After Operator 


The After operator, ‘ < ’, can be used to place 
more than one command on a command line. All of 


the commands on the command line are executed 
before the monitor returns with its prompt ‘ : ’, for 
anew command. 

With this feature, the monitor can write an area 
of memory onto paper tape preceded and followed by 
a sequence of nulls without any undesirable carriage- 
returns or prompts inserted by the monitor. 


Example 1 


Assume that the terminal being used is a teletype- 
writer with paper tape punch. In order to write the 
contents of 400 hex bytes starting at 100 hex with a 
leader of 95 hex nulls and a trailer of 80 nulls, type: 


:N80 < :W100 S 400 <:N 95 (CR) 


where the colons are prompts provided by the monitor. 
Turn on the paper tape punch after typing the carriage- 
retum in order to avoid writing it onto the tape. 


There are several points to be made about the use 
of the After operator: 

(a) The order of execution of the commands is 
from right to left. Hence, the name ‘After’ and the 
shape ‘<’. 

(b) The After operator is logically equivalent to a 
carriage-return. Anywhere a carriage-return can reason- 
ably appear in a command, the After operator may be 
used instead. However, no commands in the line are 
executed until an actual carriage-return is typed. 

(c) If any of the GO commands appears in a 
multiple-command line, it must be the last command 
executed, i.e., the first command typed. 

(d) Each additional command on a line adds from 
10 to 20 hex bytes to the system stack size. 


Example 2 


Assume that we are using a CROMEMCO TUART 
T/O card with a console connected to UART A and 
with a paper tape reader and punch connected to the 
input and output, respectively, of UART B. Assume 
that the baud rate of UART B has already been set to 
that of the reader and punch. (See Baud Rates pg. 3.) 
We can copy a paper tape by switching the current 
UART to B, reading the tape into a memory buffer, 
writing a leader, writing the buffer to the punch, and 
finally switching the current UART back to A, the 
console, by typing: 


:UA <:W0S2000 < :N80 < :ROS2000 < :UB (CR) 


In this case, we can leave the reader and punch on 
all the time. There is no question of a carriage-return 
from the command line being punched onto the paper 
tape since two different UARTs are involved. 

Perhaps we forgot to write nulls as a trailer to the 
output tape. After the prompt, ‘: ’, again appears on 
the console, we can rectify this by typing: 


UA < :N 80 <:U B (CR) 


where, again, all colons are provided by the monitor. 


Example 2 


Suppose we wish to make three copies of the 
same PROM. Assume that the source is in RAM at 
location 0 and that we want three identical copies in 
PROMs located at E400, E800, and ECOO hex. The 
following command line will accomplish this: 


:P0S400 ECOO < :PO0S400 E800 < :P0S400 E400 (CR) 
Example 4 
Either of the following will initialize the baud 
rate of a terminal connected to UART B of the 
TUART: 
:-I <:UB (CR) 
:UA<:I <:UB (CR) 


After entering one of these commands on the 
console connected to UART A, push CARRIAGE- 
RETURN on the other terminal until the monitor 


- prompt‘: ’ appears. 


Example 5 


Assume that we would like to take a brief nap to 
refresh ourselves but have no alarm clock. Assume 
further that two beeps of the console bell spaced 2.1 
seconds apart are sufficient to wake us and that the 
console can run at 300 baud. Since the Display Mem- 
ory command takes 63 characters to display 10 hex or 
16 bytes of memory, at 300 baud it takes 2.1 seconds 
or 0.035 minutes to display 10 hex bytes. 


Number of 
Bytes (hex) 


Time (minutes) 


1900 
3200 
6400 
C800 


First, we re-initialize the UART by typing the 
following: 


:1 (CR) 


Set the console baud rate to 300 and push the 
CARRIAGE-RETURN until the monitor issues its 
prompt, ‘: ’. 

To ring the bell, output 7 to port 1. For a nap of 
14 minutes: 


:0 7 1 <:DMOS10 < :07 1 < :DM0S1900 (CR) 


( 
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Errors and Escapes 


When the monitor detects an error condition, the 
command is aborted, all breakpoints are cleared, and a 
‘2? is printed followed by the prompt ‘ : ’” for the 
next command. 

Any command may be aborted from the keyboard 
either when the monitor is requesting further input, or 
during print-out, by depressing either the ESCAPE or 
the ALT MODE key. CONTROL-SEMI-COLON, 
CONTROL-SHIFT~K’, and ‘ \ > may also work. 


Input and Output 


The monitor assumes that a data transfer occurs 
on I/O port 1. Status flags are transmitted over input 
port 0. The data-available flag is on bit 6 of input port 
0. The transmitter-buffer-empty flag is on bit 7 of 
input port 0. Both flags are active high. 

To use the CROMEMCO TUART with the 
monitor, set switches 1, 7, and 9 of the 10-position 
TUART switch OFF, all others ON. The currently 
selected UART uses I/O port 1 for date transfer and 
input port O for status flags. The UART which is not 
current uses I/O port 51 hex for date transfer and 
input port 50 hex for status flags. (The UARTs are 
selected by means of the UART command.) 

The following locations may be changed for dif- 
ferent I/O conventions: 


Status port number (00): EOOF, E020 

Input data port number (01): E014 

Output data port number (01): E027 
Input-data-available mask (40): E011 
Output-transmitter-buffer-empty mask (80): E022 


For active-low status flags change locations E019 
and E379 from 28 hex to 20 hex and change location 
E120 from 20 hex to 28 hex. 


Baud Rates 
and UART Selection 


When the monitor is entered at E000 hex, the 
cold-start entry point, push CARRIAGE-RETURN 
until the monitor responds with: 


CROMEMCO ZM1.4 


The monitor is capable of selecting 19200, 9600, 
4800, 2400, 1200, 300, 150, or 110 baud when used 
with the CROMEMCO TUART I/O board. 

The maximum number of carriage-returns re- 
quired to select any of these baud rates is four. (Two 
carriage-returns are required for any UART with a 
fixed baud rate.) 


The baud rate can also be changed by using the 
Initialize command (see page 5). 

Some peripheral devices such as paper tape read- 
ers or punches may have no keyboards. The TUART 
baud rate can also be set by outputting a data byte 
from the following table to port 0 for the currently 
selected UART or to port 50 hex for the unselected 
UART. (To make UART B current, output 80 hex to 
port 4. For UART A, output 0 to port 54 hex. UART 
selection can also be accomplished by means of the 
monitor’s VART command, U). 


Baud Rate 


110 
150 
300 
1200 
2400 
4800 
9600 


Data Byte 


The baud rate can be octupled by outputting 10 
hex to port 2 for the selected UART or to port 52 
hex for the other UART. Outputting 0 to these ports 
brings the baud rate back to normal. 


Interrupts 


The monitor can be used to enable interrupts in 
the Z80. This is done by changing the value of the N 
register to 1 by using the Substitute Register com- 
mand, SN. (The N register stores the value of the Z80 
interrupt flip-flop at the time the monitor is entered.) 
Then interrupts will be enabled when one of the Go 
commands is given. 

Note, however, that the interrupt mask registers 
on the TUART must have been set previously, either 
by a user program or by the monitor. (If this is not 
done, then an immediate interrupt will be generated 
because the print buffer is empty.) To mask out all 
interrupts output 0 to port 3 for the current UART 
and to port 53 hex for the other UART. 

The mask bit corresponding to each of the pos- 
sible interrupts is given in the following table: 


Interrupting Device 


Timer 1 

Timer 2 

Sens (external) 

Timer 3 

Receiver Data Available. 
Transmitter Buffer Empty 
Timer 4 

Timer 5 or external 


0 
1 
2 
3 
4 
5 
6 
7 


For example, to allow only interrupts from the serial 
input port and from Timer 1 on the current UART, 
output 11 hex to port 3 and 0 to port 53 hex. 


Loading the Monitor 


The paper tape can be loaded into RAM and 
thence into PROM as follows. 

Temporarily address a RAM card at E000 hex. 
Address the BYTESAVER card at some other address, 
say A000 hex. Place an erased 2708 in PROM position 1 
(A400 hex). 

Enter the following loader program via the front 
panel switches at any convenient address. Since it 
only contains relative jumps, it will execute anywhere 
in memory without change. The places that may need 
to be altered for different I/O conventions are under- 
lined. 


21 00 EO LD HL, 0E000H 
DB 00 LOOP: IN A, (STATUS) 
E6 40 AND DAV 

28 FA JR Z, LOOP 

DB O01 IN A, (DATA) 
7a LD (HL), A 

23 INC HL 

18 F4 JR LOOP 


Align the first byte of data on the paper tape over 
the read sensors of the paper tape reader. Begin execu- 
tion of the loader program and then turn on the reader. 
After the tape is read, stop the reader. 

If necessary, change the monitor locations indi- 
cated above to fit your I/O conventions. 

Execute the monitor starting at location E000 
hex. Depress carriage return several times to set the 
baud rate to suit your terminal The monitor will now 
program itself into the PROM at A400. Turn on the 
BYTESAVER program power switch and enter the 
following command: 


P E000 S 400 A400 (CR) 


If the PROM programs correctly, the monitor will 
respond with a line feed and the prompt ‘: ’. Turn off 
the program power switch and the computer power 
switch. Re-address the BYTESAVER to EOOO and 
move the monitor PROM to PROM location 0. Change 
the RAM address to something other than E000. You 
are then ready to use the monitor in PROM. 


Using the Monitor 


Set the power-on jump switch on the Cromemco 
ZPU card to E (1110 binary). Whenever the computer is 
reset, control will then immediately pass to the monitor. 

If the ZPU is used with the Cromemco TUART 
I/O card, depress CARRIAGE-RETURN two to four 
times. This will set the UART on the serial interface 
card to the baud rate of the terminal being used. 

When used with a serial interface card with baud 
rate fixed to that of the terminal, simply depress 
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CARRIAGE-RETURN twice. The monitor will then 
respond: 


CROMEMCO ZM1.4 


followed by a prompt ‘: ’. The monitor is then ready 
to accept commands from the keyboard. 


COMMANDS 


DISPLAY MEMORY 


[1] DM beginning-addr ending-addr (CR) 
or 
DM beginning-addr S swath-width (CR) 


The contents of memory are displayed in hexa- 
decimal form. Each line of the display is preceded by 
the address of its first byte. Example: 


:DM100 S3 
0100: C3 34 7F 


DISPLAY REGISTERS 
[2] DR(CR) 


When the monitor is re-entered from a breakpoint, 
the contents of all the Z80 registers are stored in an 
area called the user-register area. (When the monitor is 
entered via reset or the warm-start entry point, all 
registers except A, B, C, D, E, F, HL, and P are saved 
in the user-register area. However, if the stack pointer 
is pointing to RAM, then all but A and P will be saved.) 

DR causes these stored registers to be displayed 
in the following format: 


A=01 B=12 C=34 D=56 E=78 F=9A HL=BCDE 
I=FO N=00 P=1234 S=5678 X=9ABC Y=DEFO 
A'23 B'45 C'67 D'89 E'AB F'CD HL'EFO1 


If interrupts were enabled when the monitor was 
entered, then N=1. Otherwise, N=0. 


The flag registers, F and F', are packed as follows: 
S,Z,x,H_ x,P/V,N,C 


ie., sign, zero, (unknown), half-carry, (unknown), 
parity or overflow, subtraction, and carry flags. 


GO 


[3] G(CR) 


The Z80 registers are loaded with the values saved 
in the user-register area. (These are the values displayed 
with the DR command.) Execution then resumes at 


_-~. the location contained in the user-program-counter, P. 


[4] G starting-addr (CR) 


This command is exactly like [3] except that the 
user-program-counter, P, is first loaded with starting- 
address. Thus, execution begins at starting-address. 


GO WITH BREAKPOINTS SET 
[5] G / breakpoint-addr-1 breakpoint-addr-2 ... (CR) 
[6] Gstarting-addr /brkpt-addr-1 brkpt-addr-2 . . . (CR) 


Commands [5] and ]6] are like [3] and [4], 
respectively, except that breakpoints are set at 
breakpoint-address-1, breakpoint-address-2, etc. 

When a breakpoint is encountered in the execu- 
tion of the user program, the monitor is re-entered. All 
registers are saved in the user register area (which is 
part of the system stack), the address of the breakpoint 
is printed, and all breakpoints are cleared (i.e., the user 
program is restored to its original state). Finally, the 
prompt, ‘ : ’ is issued for the next command from the 
keyboard. Note the following about the use of break- 
points: 

(a) Breakpoints can only be set in programs resid- 
ing in RAM. This is because the monitor inserts a RST 
48 instruction (F7 hex) at each breakpoint location. 
(The original contents of these locations are saved so 
that they can later be restored.) 

(b) Up to five breakpoints can be set. If an 
attempt is made to set a sixth breakpoint, the monitor 
will print a question mark to indicate error, erase all 
breakpoints, and prompt for a new command. 

(c) When a breakpoint is set, the monitor inserts 
a 38-byte jump instruction at location 30 hex. This 
means that locations 30, 31, and 32 hex are not avail- 
able to the user program when breakpoints are used. 

(d) The monitor temporarily uses ten bytes on 
the user’s stack in executing a breakpoint. The area 
reserved for the user’s stack must, therefore, be at least 
ten bytes larger than that required for the user’s 
program. 

(e) If breakpoints are set in a program and the 
computer is reset and the monitor re-entered before 
any breakpoint is reached in the execution of the pro- 
gram, then the breakpoints will have to be removed 
from the program by means of the Substitute Memory 
command, SM. However, if any breakpoint is reached, 
all breakpoints are automatically cleared by the 
monitor. 


INITIALIZE BAUD RATE 
[7] I(CR) 


After the CARRIAGE-RETURN is typed, change 
the baud rate of the terminal to the desired value and 
then push the CARRIAGE-RETURN until the monitor 


? 


responds with its prompt, ‘: ’. 


The monitor is capable of selecting 19200, 9600, 
4800, 2400, 1200, 300, 150, or 110 baud when used 
with the Cromemco TUART I/O board. The maximum 
number of carriage-returns required to select any of 
these baud rates is four. 

The command is particularly useful for setting 
the baud rate of the second serial port on the TUART. 
(See Multiple Commands.) 


MOVE 


[8] 


M source-addr source-end destination-addr (CR) 
or 
M source-addr S swath-width destination-addr (CR) 


Move the contents of memory beginning with 
source-address and ending with source-end to destina- 
tion-address. After the move, the monitor verifies that 
source and destination are the same. This will result in 
a print-out of discrepancies which are not really errors 
after certain types of overlapping moves. However, this 
print-out can be terminated by depressing ESCAPE 
or ALT MODE. 

The Move command can be used to fill a block of 
memory with a constant. For example, to enter zeros 
between locations 100 and 108, use the Substitute 
Memory command to enter 0 at location 100, and then 
move 100 through 107 to 101: 


M100 107 101 
or 


M 100 S 8 101 

Care should be taken not to overwrite the system 
stack which resides in the top of active RAM. (See 
System Stack.) 


NULLS 
[9] N hex-number (CR) 


Write hex-number nulls to the current device. 
This command is used to punch leaders and trailers on 
paper tape. (See Multiple Commands.) 


OUTPUT 
[10] O data-byte port-number (CR) 


Outputs data to a port. One use of this command 
is to select banks on Cromemco memory boards. 
When the monitor is first entered on power-up or reset, 
it selects bank O and turns off all other memory banks. 

Hither a software output or a monitor output to 
port 40 hex serves to change the bank selection. To 
select bank n, output a byte with bit n high. To select 
two banks, n and m, output a byte with both bits n 
and m high. 


For example, the first command selects bank 5 and the 
second selects banks 4 and 5. 


O 20 40 
O 30 40 


PROGRAM 


[11] P source-addr source-end destination-addr (CR) 
or 
P source-addr S swath-width destination-addr (CR) 


Program from source-address through source-end 
into PROMS beginning at destination-address. 

If the length of the source is not a multiple of 
400H (1024 decimal) or if the destination does not 
begin at 400H boundary, the monitor will reject the 
command, (Multiples of 400H end in ‘000’, ‘400’, 
‘800’, or ‘C00’.) 

Any number of 2708 or 2704 PROMS can be 
programmed in the execution of one command as long 
as there are enough BYTESAVERS to contain them. 
Each PROM is verified with its source after all are pro- 
grammed and any discrepancies are printed out. If 
there are none, the prompt ‘ : ’ is issued and the 
monitor awaits the next command. 

Software can be loaded into a PROM in as small 
increments as you desire provided it is added to pre- 
viously unused areas of the PROM. 

This is done by first using the Move command, 
M, to transfer the current contents of the PROM down 
to RAM, adding the new software to an area of RAM 
which corresponds to the unused portion of the PROM 
and finally using the Program command, P, to re- 
program the PROM with the result. 

Although the entire PROM must always be pro- 
grammed, it never hurts to re-write the same data 
over again. 

In general, a 1 may be written over a 1, a 0 over 
either a 1 or a 0, but the only way to change 0’s to 1’s 
is to erase the PROM with appropriate UV light. (See 
the BYTESAVER manual for details.) 


READ 


{12] R destination-addr destination-end (CR) 
or 
_ R destination-addr S swath-width (CR) 
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Read binary or ASCII input from paper tape 
reader or console and store in memory from destination- 
address through destination-end. After destination-end 
has been filled, the monitor prompts for the next 
command. 


SUBSTITUTE MEMORY 
[13] SM address (CR) 


Substitute Memory desplays the contents of 
address and outputs a dot, ‘ >, as a prompt for the 
substituted value. If no change is desired, type a 
space or another dot. Otherwise, enter the new value. 
The monitor accepts hex digits until it gets a delimiter, 
such as a space, dot, or carriage-return retaining the 
last two digits entered as the value. Unless the delimiter 
is a carriage-return, the monitor outputs the contents 
of the next sequential memory location with a dot 
prompt. A carriage-return terminates the command. 


SUBSTITUTE REGISTER 


[14]S register-name (CR) 


Register-name may be A, B, C, D, E, F, H (HL), I, 
N (state of the Z80 interrupt flip-flop), P (PC), S (SP), 
A', B', C', D', E’, F', H' (HL'), X (IX), or Y (IY). 

This command prints the name of the user-register 
requested, displays its contents, outputs a dot,‘ . ’, as 
a prompt for the substituted value. If no change is 
desired, type a space or another dot. Otherwise, enter 
the new value. The monitor accepts hex digits until it 
gets a delimiter such as space, dot, or carriage-return 
retaining the last two digits (four digits for a 2-byte 
register). Unless the delimiter is a carriage-return, the 
monitor prints the name and contents of the next 
register followed by the dot prompt. A carriage return 
terminates the command. 


UART SELECT 


[15] U device-name (CR) 


Device-name may be A or B. The Cromemco 
TUART has two UARTs. When the monitor is entered 
via reset, UART A is selected for its input/output 
channel. This command allows the user to change the 
UART selection. It is often used in the multiple com- 
mand mode (see page 2). 


VERIFY 
[16] V source-addr source-end destination-addr (CR) 


or 
V source-addr S swath-width destination-addr (CR) 


C 


Verify that the block of memory between source- 
address and source-end contains the same values as the 
block beginning at destination-address. The addresses 
and contents are printed for each discrepancy found 
(unless the print-out is terminated by ESCAPE or ALT 
MODE). 

This command works by reading bytes from the 
source and destination and comparing them. If a dis- 
crepancy is found, the memory is read again for print- 
out. Thus, it can happen that a discrepancy is printed- 
out with the source and destination contents indicated 
to be the same. This is caused by a defective memory 
element. 


WRITE 


[17] W source-addr source-end (CR) 


or 
W source-addr S swath-width (CR) 


Write binary or ASCII output from source-address 
through source-end to the current device (selected by 
the UART command). After source-end has been 
written, the monitor prompts for the next command. 

The Write command is useful for punching binary 
or ASCII paper tapes of the contents of memory 
and for looking at the ASCII contents of memory on 
the console. 

When punching a paper tape, it is usually desirable 
to punch series of nulls as leader and trailer. This can 
best be done in conjunction with the Null command 
and the After operator. (See Multiple Commands for 
examples of this usage.) 


E@OO 


(GBHG) 
(G@OG1) 
(@GG2) 
(@88G) 
(804) 
(8652) 
(@854) 
(9840) 
(88) 


(9085) 
(@016) 
(816) 
(G9GB) 


(9838) 
(G9BBB) 
(9885) 
(G06) 
(9907) 


(@8@D) 
(O@GGA) 
(@@1B) 
(@@7D) 


(FFFF) 
(FFFD) 
(FFFB) 
(FFF9) 
(FFF7) 
(FFF5) 
(FFF3) 
(FFF1) 
(FFEF) 
(FFED) 
(FFEB) 
(FFEQ) 
(FFE7) 


(@B1A) 


OOB2 
0883 
BHHA4 
BBB5 
GHG6 
OOB7 
6998 
OBHI 
G16 
OGB11 
O12 
9913 
@814 
@G15 
OH16 
O917 
8818 
GB19 
G92G 
OG621 
G@B22 
6623 
OH24 
GB25 
GB26 
GG27 
6828 
GH29 
GO36 
6831 
GB32 
6833 
GO34 
635 
G936 
0037 
9238 
6639 
BG4G 
OB41 
GB42 
6643 
OG44 
@B845 
G@G46 
6847 
6848 
6B49 
GB5B 
O851 
8G52 
G853 
6654 
@655 
GO56 
6657 
8658 


tA 


, 
STAT: 


EQU 
DATA: EQU 
ACMNDP: EQU 
ABAUDP: EQU 
APARLP: EQU 
BCMNDP: EQU 
BPARLP: EQU 
DAV: EQU 
TBE: EQU 
, 
NBRKPT: EQU 
BPSTOR: EQU 
TEMPS: EQU 
BPMRK: EQU 
a 
RSTLC: EQU 
CASE: EQU 
B2F: EQU 
PF: EQU 
CRF: EQU 
t 
CR: EQU 
LF: EQU 
ESC: EQU 
ALT: EQU 
‘ 
7 DISPLACEMENTS 
7 
DUPC: EQU 
DUAF: EQU 
DUBC: EQU 
DUDE: EQU 
DUHL: EQU 
DUSP: EQU 
DUIX: EQU 
DULY: EQU 
DUIN: EQU 
DUAF2: EQU 
DUBC2: EQU 
DUDE2: EQU 
DUHL2: EQU 
Ld 
LENRGS: EQU 
7 
f 
? 

ORG 


g ;STATUS PORT, DEVICE A 

1 ;DATA PORT, DEVICE A 

2 ;COMMAND PORT, DEV. A 

4) ;BAUD PORT, DEVICE A 

4 ;PARALLEL PORT, DEV. A 

52H ;COMMAND PORT, DEV. B 

54H ; PARALLEL PORT, DEV. B 

46H ; DATA-AVAILABLE MASK 

80H ;XMITTER-BUF-EMPTY MSK 

5 ; ALLOW ROOM FOR 

NBRKPT*4+2 ;BREAKPOINT STORAGE 

BPSTOR 

@BH ;USED TO MARK THE SET- 
7TING OF A BP IN BPSTOR. 

3@H 7;RST LOCATION 

g ; (REQUIRES UPPER-CASE) 

5 ;2-BYTE FLAG 

6 ;PRIME-ABLE REG FLAG 

7 ;CRLF FLAG 

@DH 

GAH 

1BH 

7DH 


-17 7I & THE INTERRUPT FF 


DUPC-DUHL2+2 


GEOOOH 


; ENTER THE MONITOR FROM RESET, 

7 COLD START ENTRY. INITIALIZES THE UART 

7 AND ZEROES THE BREAKPOINT STACK POINTER. 
; ALTERS THE A-REGISTER. SAVES ALL OTHER 
; REGISTERS EXCEPT THE PROGRAM COUNTER, 


6859 ; BUT DOES NOT DISPLAY THEM. 


QG6D ; 
EGG 3EG1 0061 CSTART: LD A,l 
EGG@2 D34B OB62 OUT 46H,A ;SELECT BANK @ 
EGQ4 F5 0063 PUSH AF ;SIMULATE UPC 
EGO5 F5 O064 PUSH AF ; USER-F-REGISTER 
EGG6 1842 0865 JR COMMON 
OB66 ; 
Q067 ; 
@@68 ; 
9069 ; WARM START ENTRY. INITIALIZES THE BREAKPOINT 
9078 ; STORAGE POINTER. SAVES ALL REGISTERS EXCEPT 
@@71 ; THE PROGRAM COUNTER, BUT DOES NOT DISPLAY THEM. 
O@72 ; 
E@@8 F5 0273 WSTART: PUSH AF ;SIMULATE UPC 
EG69 FS G074 PUSH AF ;UAF 
EGGA 3E8@G 9075 LD A,8@H ; FLAG: 
EG@GC 183C G76 JR COMMON ;WARM-START ENTRY 
OO77 ; 
Q078 ; 
9079 ; CHECK INPUT & RETURN WITH DATA IF READY. 
OG80 ; 
EGQZE DBOe 9081 CHKIN: IN A,STAT 
EQ19 E64G OG82 AND DAV 
E@12 C8 0283 RET Z 
E@13 DBO1 O984 IN A,DATA 
E@15 C9 0085 RET 
O@86 ; 
O87 ; - 
9688 ; GET CHARACTER FROM INPUT. ( 
QG89 ; ~ 
EG16 CDOEEQ 9998 GBYTE: CALL CHKIN 
E919 28FB G91 JR Z,GBYTE 
E@1B E67F G92 AND 7FH 
E@1D C9 9693 RET 
O094 ; 
@695 ; 
g@96 ; PRINT CHARACTER. 
QG97 ; 
EB1E FS 9098 PBYTE: PUSH AF 
E@1F DBOO 9699 PBY1l: IN. A,STAT 
E@21 E680 G10 AND TBE 
EQ23  28FA 0181 JR Z,PBYL 
E@25 Fl G182 POP AF 
E@26 D3Gl 6183 ouT DATA,A 
EG28 cQ9 G14 RET 
O15 ; 
Q186 ; 
$187 ; SELECT DEVICE A & INITIALIZE ITS BAUD RATE. 
@198 ; ENTER WITH A=1. 
G109 ; 
EG29 D354 $118 INIT: OUT BPARLP,A ;SELECT DEVICE A 
E@2B D352 111 OUT BCMNDP,A ;RESET DEVICE B 
@112 ; ; [CONTINUE BELOW] 
113 ; 
g114 ; 
115 ; INITIALIZE BAUD RATE OF THE CURRENT DEVICE. 


E@2D 
E39 
E32 
E@34 
EG36 
E938 
E@3B 
E@3E 
E@4@ 
E@42 
E@44 


E@45 
E@46 
E@47 
E@48 
E@49 


E@4A 
E@4B 
E@4C 
E@4D 


E@4E 
E@51 
E@52 
E@53 
E@54 
E@55 
E@57 


E@58 
E@59 


21A3E3 
GEBD 
3E11 
D392 
EDA3 
CD16EG 
CD16EG 
FE@D 
3E@1 
20FD 
cao 


E3 
2B 
E3 
FS 
97 


C5 
47 
D5 
E5 


21E96@ 
25 

7E 

34 

BE 
28FA 
35 


78 
EB 


8116 
@117 


9118 
@119 
G12 
@121 
@122 
$123 


oa i ia eT Te Te Pe ie ve Ty 


¥, 


PUSH CARRIAGE-RETURN TO SELECT THE PROPER BAUD 
RATE FOR THE CURRENT TERMINAL. (THE MAXIMUM 
NUMBER OF CARRIAGE~RETURNS REQUIRED IS FOUR.) 


WITHE THE CROMEMCO TUART ANY OF THE FOLLOWING 
BAUD RATES CAN BE SELECTED: 
192800, 9600, 4800, 2490, 1208, 300, 158, 119. 


WITH THE 3P+S: 2490, 300, 119. 


TWO CARRIAGE-RETURNS ARE REQUIRED FOR 
ANY UART WITH A FIXED BAUD RATE. 


NITBAUD: LD HL,BAUDRS 
LD C,ABAUDP 
LD A,1l1H ;OCTUPLE THE CLOCK 
ITl: OUT ACMNDP,A ;& RESET CURRENT DEVICE 
OUTI 
CALL GBYTE 
CALL GBYTE 
CP CR 
LD A,l 7;SLOW THE CLOCK 
JR NZ,IT1l 
RET 
7 
, 
; BREAKPOINT ENTRY. INITIALIZES NOTHING. 
7 SAVES ALL REGISTERS AND DISPLAYS THEM, 
a 
SVMS: EX (SP) ,HL ;ADJUST BRKPT 
DEC HL 7RET ADDR 
EX (SP) ,HL 
PUSH AF ; UAF 
SUB A ; FLAG: 
7 ;BREAKPOINT ENTRY; 
, 
’ 
COMMON: PUSH BC ;UBC 
LD B,A ;ENTRY FLAG 
PUSH DE ; UDE 
PUSH HL ;UHL 


Me we Nt Ne Ne 


PLACE SYS STACK AT HIGHEST PAGE OF 
AVAILABLE RAM. 
ALLOW ROOM FOR TEMP STORAGE. 


LD HL, @@FFH-TEMPS 
COML: DEC H 

LD A, (HL) 

INC (HL) 

CP (HL) ;DID IT CHANGE? 

aR Z,COM1 

DEC (HL) ;YES. RESTORE IT. 
f 

LD A,B ; ENTRY FLAG 

EX DE,HL 
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E@5A 
E@5D 
E@5E 
Eg61 


E63 
E@64 
E@65 
EG66 
E67 
E@OA 
EG@6B 
E@6C 
E®6E 
EG7G@ 
E@71 
E@72 
E973 
E@74 
E@75 
EQ77 
E®79 
E@7B 
E@7C 
E@7D 


EO7F 


E®82 
E@84 
E@85 
EQ87 
EG8A 
E®8B 
E@8C 
E@8D 
E@8E 
EQ@8F 
EG9@ 
EG91 
E@92 
E693 


EG94 
E@97 
EG9A 
E@9D 


E@AQ 
E®A2 


216966 
39 

G1 BAD 
EDB8 


13 
EB 
F9 
EB 
G108BOO 
69 
E5 
DDE5 
FDE5 
EB 
G9 
4D 
2B 
E5 
DDE1 
FEO1 
3867 
71 
23 
3608 


CC29EG 


2EG@ 


21F0E3 
D4Q0FE2 
018659 
DC23E3 


DDE5 
El 


8173 
g174 
6175 
6176 
@177 
6178 
$179 
6186 
$181 
@182 
6183 
G184 
g185 
G186 
6187 
6188 
8189 
G19 
G191 
@192 
G193 
6194 
6195 
G196 
6197 
$198 
6199 
G20B 
201 
G2G2 
6263 
6264 
G25 
G206 
6207 
G208 
G209 
G21 
®211 
@212 
8213 
G214 
@215 
6216 
@217 
8218 
6219 
G22G 
G221 
G222 
6223 
G224 
6225 
$226 
Q@227 
6228 
$229 


se 


INC 
LD 


HL,9 

HL,SP ; -> UPC, HI BYTE 
BC, 16 

DE ;-> UHL,LO ON SYS STK 
DE,HL 

SP,HL ;CURRENT SYS SP 
DE,HL 

BC, DUPC-DUHL+3 

HL,BC ;HL = USER SP 

HL ;USP 

IX ;UIX 

IY ;UIY 

DE,HL 

HL,BC 

C/E ;SAVE 

HL 

HL 

IX 

1 ; ENTRY? 

C,COM3 ;SKIP IF VIA BP. 
(HL) ,C ;BP PNTR, LO BYTE 
HL 

(HL) ,@ ;BP-STACK ENDMARK 


; INITIALIZE THE TUART IF ENTRY WAS VIA RESET. 
; (A CONTAINS 1.) 


. 
Lf 


CALL 


, 

COM3: LD 
LD 
LD 
JP 
INC 

COM4: PUSH 
EX 
PUSH 
EX 
EXX 
PUSH 
PUSH 
PUSH 
EXX 


; IF CY IS SET, 
LD 
CALL 
LD 
CALL 


t 
, 
t 


cd 

‘ 

CLBP: PUSH 
POP 


Z,INIT 

A,I 

H,A 

L,@ 

PO,COM4 

HL ;UIN 
AF ;UAF! 
BC ;UBC' 


DE ;UDE' 
HL ;UHL' 


ENTRY WAS VIA A BREAKPOINT 


HL,HEAD 
NC,PMSG 

BC, [['P'+CASE] SHL 8]+86H ;IF BP ENTRY, 
C,SUBR3 ;DISPLAY THE PC. 


CLEAR ALL BREAKPOINTS 


IX 
HL ;POINTS TO BPSP,LO 
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a 


E@A3 


E@A4 
E@A5 
E@A7 


EGA9 
EOAA 
E@AB 
E@AC 
E@AD 
E@AE 
EOAF 
E@B1 


E@B3 
E@B4 
E@B5 


E@B6 
E@B9 
E@BA 


EgBB 
E@BE 
E@C1 
E@C2 
E@C5 


E@C8 
E@CB 
E@CC 
E@CE 
E@D@ 
E@D2 
E@D4 
E@D5 


E@D7 
E@D8 
E@D9 
E@DA 
E@DB 
E@DC 
E@DD 
EQ@DE 
E@DF 
E@E2 
E@E4 


6E 


7E 
FE@B 
200A 


34 
2B 
56 
2B 
5E 
2B 
EDA8 
18F1 


7D 
2B 
77 


LLEOFF 
19 
F9 


CD4DE1 
LIBEES 
D5 

21AEE3 
CDOFE2 


CDDDE1 
c8 
D644 
3815 
FE14 
3611 


EB 
CDDDE1 
FE4D 
E9 


9244 
9245 
0246 
247 
$248 
249 
9256 
251 
0252 
9253 
Q254 
0255 
9256 
0257 
9258 
0259 
9268 
0261 
0262 
$263 
9264 
6265 
266 
0267 
0268 
9269 
270 
$271 
6272 
0273 
9274 
$275 
$276 
277 
$278 
9279 
0286 
G281 
9282 
0283 
6284 
0285 
9286 


LD L, (HL) 
CL1: LD A, (HL) 
CP BPMRK 
JR NZ,CL2 
INC (HL) 
DEC HL 
LD D, (HL) 
DEC HL 
LD E, (HL) 
DEC HL 
LDD 
JR CL1 
’ 
CL2: LD an 
DEC HL 
LD (HL) ,A 
LD DE,-LENRGS 
ADD HL,DE 
LD SP,HL 


Se Te Ty 


GET 1-BYTE COMMAND. 


;BPSP NOW IN HL 
7;BP STK EMPTY? 
7 IF BPMRK, BP IS SET 


7BP-ERASED MARK 


RESTORE MEM CONTENTS 


;ADJUST BPSP 


;FOR THE BENEFIT 
;OF ERROR & ESCPE 
;RE-INITIALIZE SP 


RETURNS VALUE IN HL & JUMPS TO THAT ADDR. 


CALL CRLF 
CMND: LD DE,CMND 

PUSH DE 
CMND1: LD HL,PRMPT 

CALL PMSG 


me Se me Ne te 


;SET-UP RETURN 


; RE-ENTRY POINT 
;FOR RECURSION 


HL NOW PNTS TO THE COMMAND TABLE. 


GET THE COMMAND. 


DE GETS THE FIRST ALPHA CHAR LESS 'D'. 


CALL SKSGB 
RET Z 

SUB 'D'4+CASE 
JR C,ERROR 
CP wr=-'D'+1 
JR NC,ERROR 
LD E,A 

LD D,@ 

LD Cp 

EX DE,HL 
ADD HL, HL 
ADD HL,DE 

LD E, (HL) 
INC HL 

LD D, (HL) 
EX DE,HL 
CALL SKSG@ 

CP 'M'+CASE 
JP (HL) 
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;GET NON-SPACE 
;LlF CR, IGNORE, 
Be ks EDA 


7; > 'w'? 


; INITIALIZE FOR SUBR 


;TIMES 2 
; + TBL ADDR 


;NEXT CMND GHAR 
; (USED IN SUBST & DISPL) 


6287 
$288 


9289 ; ERROR & ESCAPE. RETURNS TO CMND WITH SP 
@298 ; POINTING TO SAVED-REG AREA (UHL'). 
g291 ; 
E®E5S 3E3F @292 ERROR: LD Ag ie 
E@E7 CD12E1 Q293 CALL PCHR 
E@EA 18B4 @294 ESCPE: JR CLBP ;CLEAR ANY BRKPTS 
@295 ; 
@296 ; 
297 ; PROGRAM PROMS. ABORTS IF DESTINATION 
@298 ; IS NOT ON A 1K (480H) BOUNDARY, OR IF SWATH 
@299 ; WIDTH IS NOT A MULTIPLE OF IK. 
G300 ; 
0301 ; 
E@EC CDAD5E1 @3@2 PROG: CALL L3NCR 
E@EF 78 0363 LD A,B ;ARE INCREMENT & 
EQF@ B2 0304 OR D ;DESTINATION BOTH 
EOFI E683 93065 AND 3 ;MULTIPLES OF 
E@F3 Bl 0386 OR ¢c 31024? 
E@F4 B3 Q307 OR E 
EOF5 2G6EE @308 ERRV1: JR NZ ,ERROR ;ERROR VECTOR 
2309 ; 
EOF7 E5 G318 PUSH HL ; SOURCE 
EOF8 214801 Q311 LD HL,329 ;# OF ITERATIONS 
E@FB E3 @312 PRI: EX (SP) ,HL 
E@FC CDI1AE2 $313 CALL MVE ;MOVE IT 
E@FF §E3 8314 EX (SP) ,HL 
E189 2B @315 DEC HL ; ITERATION CT 
El1@1 7C G316 LD A,H 
B1@2 BS Q317 OR L 
£183 20F6 6318 JR NZ,PRI1 
E1@5 El @319 POP HL 
E1@6 1861 0328 JR VRFY ; VERIFY IT 
@321 ; 
@322 ; 
0323 ; PRINT THE 2 BYTES IN (HL) & (HL-1). 
@324 ; DECREMENTS HL BY 2. ALTERS A, 
0325 ; PRESERVES OTHER REGS. 
326 ; 
E108 CDECE1L 9327 P2NMS: CALL PNM 
E1@B 2B G328 DEC HL 
E1@C CDECEIL G329 CALL PNM 
E1@F 2B 0330 DEC HL ; (CONTINUE BELOW) 
@331 ; 
@332 ; 
@333 ; PRINT SPACE. ALTERS A. 
0334 ; 
E116 BE2@ @335 SPACE: LD A,2@H ; (CONTINUE BELOW) 
336 ; 
9337 ; 
0338 ; PRINT THE CHARACTER IN THE A-REGISTER. 
6339 ; (CHKS INPUT FOR ESC.) PRESERVES ALL REGS. 
0340 ; 
E112 F5 9341 PCHR: PUSH AF ;SAVE THE CHAR 
E113 E67F @342 PCl: AND 7FH : 
E115 FE1B $343 CP ESC 
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-_ 


E144 


E147 


E14A 
E14c 


E14D 
E14F 


E151 


£152 


E155 
E158 
EL5A 


28D1 
FE7D 
28CD 
CDOEEG 
20F1 


Fl 

E5 

F5 
E6O7F 
CD1EE@ 
21ABE3 
FE@D 
CCOFE2 
FE3C 
296B 
Fl 
3E9D 
F5 

D5 

c5 
CDC2E9 
cl 

D1 

Fl 

El 

cg 


CD16EG 
CD12E1 
28F8 
co 


3E@D 
18Cl 


97 


CD8BE1 


CDDEE1 
209B 
EB 


$344 
6345 
G346 
6347 
$348 
G349 
8356 
@351 
8352 
@353 
@354 
$355 
6356 
9357 
$358 
G359 
G36 
6361 
8362 
$363 
$364 
8365 
6366 
9367 
$368 
9369 
6378 
$371 
G@372 
6373 
6374 
G375 
6376 
6377 
0378 
8379 
6380 
8381 
0382 
6383 
8384 
8385 
6386 
6387 
9388 
6389 
G39 
$391 
G392 
6393 
0394 
8395 
G396 
6397 
8398 
6399 
BADD 


JR Z,ESCPE 
cP ALT ;ALT MODE? 
JR Z,ESCPE 
CALL CHKIN 
JR NZ,PC1 
‘ 
PC2: POP AF 
PUSH HL 
PUSH AF 
AND 7FH 
CALL PBYTE 
LD HL, LFNN 
CP CR 
CALL Z,PMSG 
CP re! ; RECURSIVE CALL 
TR NZ,PC3 ;ON CMND? 
POP AF 
LD A,CR ;YES. CONVERT 
PUSH AF -'<' TO A CR. 
PUSH DE 
PUSH BC 
CALL CMND1 
POP BC 
POP DE 
PC3: POP AF 
POP HL 
RET 
: 
f 
; GET CHARACTER. RETURNS IT IN A. 
; ALTERS F. 
f 
GCHR: CALL GBYTE 
CALL PCHR 
JR Z,GCHR ;IF NULL DON'T RETURN 
RET 
’ 
; CRLF. ALTERS A ONLY. 
CRLF: LD A,CR 
JR PCHR 
tf 
; 
; LOADS HL WITH SOURCE ADDR, BC & DE 
; WITH THE INCREMENT. ENDS WITH A CRLF. 
f 
L2NCR@: SUB A 
L2NCR: CALL LD2N 
f 
; SKIP INITIAL SPACES. 
; IF DELIMITER NOT A CR, ERROR 
a 
SKSGCR: CALL SKSG ;WAIT FOR NON-SPACE 
IR NZ,ERRV1 ;IF NOT CR, ERROR 
EX DE, HL 
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E15B 


E15C 


E15F 
E162 
E164 


E166 


E169 
E16A 
E16C 
E16D 
E17 
E173 
E174 
E177 
E17A 
E17D 
E17E 
E17F 
E189 
E181 


E183 
E186 
E189 


E18B 
E18E 
E18F 
E192 
E194 


c9 


CD4DE1 


CDF2E1 
3E3A 
18AC 


CDA5E1 


1A 
EDAI 
2B 
C4F2E] 
C4E9E1 
EB 
C4E9E1 
C4EFE1 
C44DE1 
EB 

23 

13 

E@ 
18E6 


CDAS5SE1 
CDLAE2 
18DE 


CDAEE1 
EB 
CDDEE1 
FE53 
2065 


G401 
B492 
G463 
G464 
G405 
G486 
G407 
G488 
G4B9 
G416 
9411 
6412 
8413 
@414 
@415 
8416 
@417 
G418 
6419 
G42B 
G421 
G422 
6423 
G424 
@425 
G426 
@427 
G428 
8429 
8436 
6431 
G432 
$433 
G434 
G435 
6436 
6437 
9438 
8439 
B44G 
G441 
G@442 
$443 
G444 
6445 
G446 
G447 
G448 
G449 
G45 
@451 
G452 
@453 
G454 
8455 
8456 
@457 


RET ae 
td 
7 
> PRINT THE NUMBER IN HL, FOLLOWED BY A COLON. 
; PRESERVES ALL REGISTERS EXCEPT A. 
PCADDR: CALL CRLF 
’ 
PADDR: CALL PNHL 
LD Apes 
IR PCHR 
i 
’ 
; COMMAND 
VERIF: CALL L3NCR ;GET 3 OPERANDS 
f 
; COMPARES TWO AREAS OF MEMORY. ENTER WITH 
; SOURCE IN HL, DESTINATION IN DE & COUNT 
; IN BC. ALTERS ALL REGISTERS. 
VRFY: LD A, (DE) 
CPI ;COMPARE TO SOURCE 
DEC HL 
CALL NZ ,PNHL ;PRINT SOURCE ADDR 
CALL NZ ,PSNM ; & CONTENTS 
EX DE,HL 
CALL NZ ,PSNM ; & DEST CONTENTS 
CALL NZ,PSNHL ; & DEST ADDR J 
CALL NZ,CRLF ( 
EX DE,HL nds 
INC HL 
INC DE 
RET PO ;IF BC=6, DONE. 
JR VRFY 
? 
7 
; COMMAND 
ta 
MOVE: CALL L3NCR ; OPERANDS 
CALL MVE ;MOVE IT 
JR VRFY 
, 
7 
; LOAD TWO NUMBERS. LOADS DE WITH THE BEGINNING 
; ADDR, Nl. LOADS BC & HL WITH THE INCREMENT 
; N2-N1+1 (OR WITH N2 IF THE OPR IS 'S'). 
; RETURNS WITH LAST DELIMITER IN A. 
7 
LD2N: CALL GNHL ;Nl TO HL, DELIM TO A 
EX DE,HL ;SAVE Nl IN DE 
CALL SKSG ;GET NEXT NON-SPACE 
CP 'S'+CASE ; SWATH? 
JR NZ,L2N1 
( 
\ 
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E196 
E199 


E19B 
E19E 
E19F 
E1A1 
E1A2 
ELA3 
E1A4 


E1A5 


E1A8 
E1AB 


E1LAD 


E1AE 
E1AF 


E1B2 


E1B5 
E1B8 
E1BB 
E1BE 
E1C1l 
E1C2 
E1c4 
E1C5 


CDADE1 
1897 


CDAEE1 
B7 
ED52 
23 

44 

4D 

co 


CD8BE1 


CDAEE1 
18A8 


97 


c5 
2168089008 


CDDEE1 


CDC6E1 
DAEDSE@ 
CD44E1l 
CDCOE1 
78 
3@F7 
Cl 

C9 


8458 
8459 
G46 
G461 
@462 
$463 
G464 
@465 
B466 
@467 
G468 
6469 
G47 
G471 
G472 
6473 
G474 
6475 
G476 
@477 
6478 
@479 
0486 
G481 
6482 
8483 
G484 
6485 
G486 
6487 
G488 
G489 
G49B 
9491 
G492 
G493 
G494 
G495 
6496 
6497 
498 
@499 
G58G 
@561 
@562 
8563 
8564 
8565 
6586 
G57 
6508 
G59 
9516 
@511 
9512 
6513 
9514 


exon é 
Seer eR Gay ay ee GREED ENE 
=—— Er oe Ge Ee ee ee 


CALL GNHL@ ;YES. INCREMENT TO HL. 
JR L2N2 
f 
L2N1: CALL GNHL ; INCREMENT 
OR A ;CLEAR Cy 
SBC HL,DE ;N2-N1 
INC HL ; INCLUDE END POINT 
L2N2: LD B,H 
LD C3k ;BC GETS THE INCRM 
RET 


el ee Te on rs 


me Gy te we Be Ne Ne Ne Se Ne te Ne 


3NCR: 


1NCR: 


LOAD 3 OPERANDS. HL GETS THE SOURCE, BC 
THE INCREMENT, AND DE THE 3RD OPERAND, 


(CONTINUE 


CALL LD2N 


BELOW) 


ENTER WITH SPACE OR THE FIRST DIGIT 
OF A NUMBER IN A. LOADS HL WITH 


DE & HL. 


JR 


CLEARS HL 
SHIFTS IT 


CALL GNHL 


WITH A NEW NUMBER & THEN EXCHANGES 


FINISHES WITH A CRLF, 
;SKIP SPACES, LOAD HL 
SKSGCR ;WAIT FOR A CR 


- IF ENTERED WITH HEX CHAR IN A, 
INTO HL. O/W, IGNORES LEADING 


SPACES. FIRST CHAR MUST BE HEX. CONTINUES 


SHIFT UNTIL A NON-HEX CHAR RECEIVED & THEN 
RETURNS WITH THE LATTER IN A, 
PRESERVES B,C,D,E. 
NHL@: SUB A 
GNHL: PUSH BC 7; SAVE 
LD HL,@ ;CLR BUFFER 
; STRIP LEADING SPACES & GET CHAR 
CALL SKSG 
7 FIRST CHAR MUST BE HEX 
CALL HEXSH 7; IF HEX, SHIFT INTO HL 
JP C,ERROR ;0/W, ERROR 
GN1: CALL GCHR 
CALL HEXSH ;IF HEX SHIFT INTO HL 
LD A,B ;RESTORE CHAR 
JR NC,GN1 ;IF HEX, CONTINUE 
POP BC 7IF NON-HEX, DONE 
RET 


’ 
. 
f 
. 
f 
7 


IF A CONTAINS HEX CHAR, SHIFTS BINARY EQUIVALENT 


INTO HL. 


IF NOT HEX, RET WITH CY SET. SAVES 


ORIGINAL CHAR IN B 
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E1C6 
E1C7 
E1C9 
E1CA 
E1CC 
E1CD 
E1LCF 
E1D1 
E1D3 
E1D4 


E1D6 
E1D7 
E1D8 
E1LD9 
E1DA 
E1DB 
E1DC 


E1DD 


E1DE 
E1LDF 
E1LE2 
ELE4 
E1E6 
E1LE8 


E1E9 


ELEC 
ELED 


E1LEF 


ELF2 


47 
D639 
D8 
COE9 
D8 
DOFA 
3863 
C607 
D8 
COBA 


29 
29 
29 
29 
BD5 
oF 
C9 


97 


B7 
CC44El 
FE2@ 
28F9 
FE@D 
co 


CD1GE1 


7E 
1888 


CD1GEL 


He 


9515 
6516 
@517 
8518 
8519 
0526 
@521 
G522 
6523 
8524 
@525 
9526 
9527 
8528 
G529 
$536 
9531 
G532 
9533 
8534 
6535 
G536 
0537 
G538 
G539 
G548 
@541 
G542 
6543 
@544 
8545 
G546 
@547 
6548 
@549 
G55 
@551 
6552 
6553 
g554 
6555 
6556 
@557 
9558 
@559 
G560 
G561 
6562 
0563 
G564 
G565 
G566 
O@567 
6568 
6569 
6578 
6571 


zt = 3 
== ae aS ES Er GP tie apr “Gee Eee 


HEXSH: LD B,A 
SUB 'g' 7 < '@'? 
RET c 
ADD 'Q9'-['G'+CASE] 
RET Cc 
SUB ‘At—'G! 
JR NC,HX1 ;OK IF >= ‘a’ 
ADD ['A'+CASE]-['9'+1] 
RET Cc 
HX1: ADD '9Q'+1-'"g! 


td 


i 


THE A-REG NOW CONTAINS THE HEX DIGIT IN BINARY. 
(THE HIGH-ORDER NIBBLE OF A IS @.) 


HXSH4: ADD HL,HL ;SHIFT 4 BITS INTO HL 
ADD HL,HL 
ADD HL,HL 
ADD HL,HL 
OR ie 
LD TA 
RET 


we 8 Ne Ne Ne Ne 


RETURNS WITH A NON-SPACE IN THE A-REG. 

IF ENTERED WITH A-REG CONTAINING A NULL 
OR A SPACE, GETS NEW CHARS UNTIL FIRST 

NON-SPACE OCCURS. ALTERS AF. 


SKSG@: SUB A 
i : 
SKSG: OR A ;DOES A CONTAIN NULL? é 
SK1l: CALL Z,GCHR a 
CP 20H ;SPACE? 
JR Z,SK1 
CP CR 
RET 
; 
; 
; PRINT SPACE FOLLOWED BY THE NUMBER POINTED 
; TO BY HL. ALTERS A ONLY. 
PSNM: CALL SPACE 


ses 


f 
. 
f 
¥ 


(CONTINUE BELOW) 


PRINTS THE NUMBER POINTED TO BY HL. 
PRESERVES ALL REGISTERS BUT A, 


NM: LD A, (HL) 


JR P2HEX 


PRINT THE NUMBER IN HL. 
PRESERVES ALL BUT A. 


; 
PSNHL: CALL SPACE 


PNHL: LD A,H 
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ae 


E1F3 
ELF6 


ELF7 
E1LFA 
E1FB 
ELFC 
E1LFD 
E1FE 
E1LFF 
E206 
E292 
E294 
E286 
E288 
E20A 
E2@D 
E20E 


E20F 
E21 
E211 
E212 
E215 
E216 
E218 
E219 


E21A 
E21B 
E21C 
E21D 
E21F 
E220 
E221 
E222 


CDF7E1 
7D 


CDFBE1 


1F 
1F 
1F 
1F 
1F 
F5 


EOOF 
FEOA 
3882 


C687 
C636 


CD12E1 


Fl 
co 


F5 
7E 
23 


CD12E1 


ay 
30F8 
Fl 
C9 


E5 
D5 
c5 
EDB@ 
CL 
D1 
El 
cg 


6572 
6573 
@574 
6575 
0576 
6577 
6578 
6579 
G58 
6581 
8582 
6583 
6584 
@585 
8586 
0587 
G588 
6589 
G59B 
G591 
6592 
@593 
G594 
6595 
G596 
O597 
$598 
6599 
BOWG 
G681 
GoGB2 
6663 
G684 
G665 
GO06 
8697 
6698 
G69 
G61 
8611 
6612 
6613 
0614 
@615 
8616 
@617 
6618 
G619 
6628 
6621 
G622 
G623 
G624 
G625 
G626 
8627 
G628 


Mee Se NO ee Ne Se Ne 


TEx we Ne Ne Ne Ne Ne 


CALL 
LD 


P2HEX 
A,L 
; (CONTINUE BELOW) 


PRINT THE NUMBER IN THE A-REGISTER. 
PRESERVES ALL REGISTERS. 


2HEX: CALL 


RRA 


P1lHEX: RRA 


RRA 
RRA 
RRA 
PUSH 
AND 
CP 
JR 
ADD 


PH1: ADD 


CALL 
POP 
RET 


PRINT MESSAGE. 


P1HEX 


OFH ; MASK 
18D ; <= 9? 


7 7A THRU F 


30H ;ASCII BIAS 
PCHR ;PRINT IT 


ENTER WITH ADDR OF MSG 


IN HL. THE MESSAGE IS TERMINATED 
AFTER PRINTING A CHARACTER WHOSE 
PARITY BIT WAS SET. 

PRESERVES FLAGS, INCREMENTS HL. 


7 
PMSG: PUSH 
PS1l: LD 


INC 
CALL 
RLA 
JR 
POP 
RET 


AF ; SAVE 
A, (HL) 
HL 
PCHR 

; LAST CHARACTER? 
NC,PS1 ;IF NOT, LOOP 
AF 


MOVE FROM ONE LOCATION TO ANOTHER. ENTER 
WITH SOURCE ADDR IN HL, DEST IN DE, BYTE 


COUNT IN BC. 


VE: PUSH 


PUSH 
PUSH 
LDIR 
POP 
POP 
POP 
RET 


COMMAND 


PRESERVES ALL REGISTERS. 


HL 7 SOURCE 

DE ;DEST 

BC ;BYTE COUNT 
BC 

DE 

HL 


E223 
E226 
E229 
E22B 
E22D 
E22F 
E236 
E233 
E235 
E238 
E23B 
E23C 
E23F 
E241 
E242 
E244 
E245 


E247 
E248 
E24B 


E24C 
E24D 
E24E 
E258 
E251 
E253 
E254 
£255 
E256 
E257 
£258 
E25A 
E25D 


E25F 
E26@ 
E261 
E262 
E263 


E265 
E266 
E267 


G1BHG6 
CDDEE1 
283A 
FE2F 
2@@D 
4F 
213086 
36C3 
2145E6 
2231689 
97 
CDAEE1 
CB69 
EB 
DDE5 
El 
2818 


85 
CAESEQ 
6E 


23 
EB 
EDAG 
2B 
36F7 
EB 
73 
23 
72 
23 
360B 
DD756@8 
18C7 


2B 
72 
2B 
73 
18C1 


El 
El 
D1 


9629 
8636 
8631 
$632 
$533 
G634 
G635 
9636 
$637 
G638 
6639 
G6 4G 
8641 
8642 
G643 
G644 
G645 
G646 
G647 
6648 
G649 
G65 
@651 
G652 
8653 
8654 
@655 
8656 
G657 
8658 
G659 
G66B 
G661 
8662 
6663 
6664 
6665 
G666 
6667 
6668 
G669 
0676 
8671 
6672 
8673 
G674 
6675 
G676 
G677 
6678 
8679 
8686 
8681 
G682 
$683 
6684 
9685 


\ 
Z 
; GO <CR> EXECUTION BEGINS AT USER PC. 
a 
; COMMAND 
f 
; GO <ADDR1>/<ADDR2> ... <ADDRN> 
; EXECUTION BEGINS AT ADDR1 WITH BREAKPOINTS SET 
; AT ADDR2,...,ADDRN. 
i 
GO: 
; B GETS NBRKPT+1 (MAX. NUMBER OF BP + 1) 
; C, THE BREAKPOINT FLAG, GETS @ (NO BP SET) 
LD BC, [[NBRKPT+1] SHL 8]+9 
GOl: CALL SKSG ;WAIT FOR NON~SPACE 
JR Z,RETN ;RETN IF CR 
CP A ;BP? 
JR NZ ,GO3 
LD C,A ;SET BRKPT FLAG (2FH) 
LD HL,RSTLC ; TRANSFER 
LD (HL) ,@C3H ;'JP SVMS' TO 
LD HL,SVMS 
LD (RSTLC+1) ,HL ;RST LOC 
SUB A 
GO3: CALL GNHL ;GET ADDR 
BIT 5,¢ ; FLAG SET? 
EX DE,HL 
PUSH IX 
POP HL 
JR Z,GO5 ; JUMP IF NO BP vo 
‘ 
DEC B ; IF TOO MANY BP, = 
JP Z,ERROR ; ERROR. 
LD L, (HL) 7;HL = BPSP 
’ 
INC HL ;BUMP BPSP 
EX DE,HL ;DE=BPSP, HL= BP ADDR 
LDI 
DEC HL 
LD (HL) ,@C7H+RSTLC ;RST INSTRUCTION 
EX DE,HL ; HL=BPSP 
LD (HL) ,E 7;BP ADDR TO STACK 
INC HL 
LD (HL) ,D 
INC HL 
LD (HL) ,BPMRK ;PUNCTUATION (BP SET) 
LD (IX) ,L 
JR Gol 
; CHANGE USER PC 
GO5: DEC HL 
LD (HL) ,D 
DEC HL 
LD (HL) ,E 
JR GOl 7BACK FOR MORE 
’ 
RETN: POP HL ; STRIP ADDR FROM STK 
POP HL ;UHL' 
POP DE ;UDE' 
NK 
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E268 
E269 
E26A 
E26B 


E26C 
E26D 
E26F 
E276 
E272 


E273 
E275 
E277 


E278 
E27B 
E27C 
E27D 
E27E 
E27F 
E286 
E281 
E282 
E283 
E285 
E287 


E288 
E289 
E28A 
E28B 
E28C 


E28D 
E296 


E292 
E295 
E297 


Cl 
Fl 
D9 
68 


Fl 
ED47 
F3 
3881 
FB 


FDE1 
DDE1 
Dl 


21GA8G 
45 
39 


818941 
263F 


CD51E1 
1619 
CD5CE1 


9686 
0687 
9688 
9689 
8690 
G691 
9692 
9693 
9694 
9695 
9696 
0697 
9698 
9699 
8700 
9701 
B702 
9703 
O704 
9705 
0706 
0707 
0708 
0709 
0710 
6711 
9712 
9713 
9714 
G715 
0716 
G717 
9718 
9719 
0720 
0721 
0722 
9723 
9724 
9725 
0726 
0727 
$728 
9729 
0730 
9731 
0732 
$733 
0734 
9735 
0736 
B737 
9738 
9739 
B74 
O741 
0742 


a eum cue ame i CRD SEED 


= 
nn son = ee 
= ae wer ae Ge ce 


7;IFF NOW RESTORED 


RT1: 


Me Ne Ne Ne NO Ne Ne 


RT2: 


POP BC 
POP AF 
EXX 

EX AF,AF! 
POP AF 

LD Toh 
DI 

JR NC,RT1 
EI 

POP LY 
POP IX 
POP DE 


COMMAND. 


DR 


COMMAND. 


ISPL: 


LD 
JR 


CALL 
LD 
CALL 


SYSTEM STACK. 


DISPLAY REGISTERS. 


DIS 


20 


COPY THE REMAINDER OF THE SYS 
TO THE USER STACK. 
IS MADE WITHOUT ERROR, 
USER STACK. 


;UBC' 
; UAF! 


;UIN 
; UI 


;ULY 
;UIX 
;USP 


STACK 


IF THIS TRANSFER 
SWITCH TO THE 


OTHERWISE, RETAIN THE 


HL,1@D 
B,L 
HL,SP 
DE,HL 
DE 

HL 

A, (DE) 
(HL) ,A 
(HL) 
NZ ,RT3 
RT2 
SP,HL 


HL 
DE 
BC 
AF 


PLAY MEMORY. 


f 
: 
; 
, 
; 
7 DM <STARTING ADDR> <ENDING ADDR OR SWATH> 
7 
, 
D 


BC, [['A'+CASE] 
NZ ,SUBR2 


L2NCR@ 
D,.16 
PCADDR 


SHL 8]+8@H ;{FOR DR} 


;IF NOT 'M', DR 


;GET OPERANDS 
;BYTE COUNT 
7 ADDRESS 


E29A 
E29D 
E29F 
E2A2 
E2A3 
E2A5 
E2A6 
E2A8 
E2AB 
E2AE 


E2B8 


E2B2 
E2B3 
E2B4 
E2B7 
E2B8 
E2BB 


E2BE 
E2Cl1 
E2C2 
E2C3 
E2C5 
E2C6 


E2C8 
E2C9 
E2CC 
E2CE 
E2D@ 
E2D1 
E2D2 
E2D5 
E2D6 
E2D8 
E2DB 
E2DD 


CDE9E1 
EDAI 
E24DE1l 
15 
28F 
7A 
E693 
CC1@E1 
CC1OE1 
18EA 


2016 


97 
47 
CDA8E1 
EB 
CC5CE1 
CC1GE1 


CD32E3 
c8 

23 
3E67 
AD5 
18F@ 


47 
CD44E1 
FE27 


FE19 
D2E5E@ 


0743 DM2: CALL PSNM ;MEM CONTENTS a 
Q@744 CPI ;INC HL & DEC BC 
6745 JP PO,CRLF 

8746 DEC D 

747 JR Z,DSPM1 

748 LD A,D 

9749 AND 3 

B75G CALL Z,SPACE 

O751 CALL Z,SPACE 

752 JR DM2 

@753 ; 

@754 ; 

0755 ; COMMAND. SUBSTITUTE MEMORY LOCATION. 

@756 ; 

@757 ; SM <ADDR> 

758 ; 

9759 ; COMMAND. SUBSTITUTE USER-REGISTER. 

O760 ; 

@761 ; S<REGISTER NAME> 

@762 ; 

0763 ; REGISTER NAMES: P [PC], S [SP], 

9764 ; A, F, B, C, D, E, H [HL], 

0765 ; I, N [IFF], X [IX], Y [IY], 

9766 ; A',F',B',C',D',E',H' [HL']. 

Q767 ; 

0768 ; 

0769 SUBST: JR NZ,SUBR ;IN NOT 'M', SR 

O770 ; 

O771 ; fe 
6772 SUBM: SUB A A 
9773 LD B,A ;1-BYTE MASK . 
0774 CALL LINCR 

9775 EX DE,HL ;HL GETS ADDR 

0776 SML: CALL Z,PCADDR 

777 CALL Z,SPACE 

0778 ; PRINT CURRENT VALUE, REQUEST NEW VALUE & 

9779 ; PRINT IT IF GIVEN 

B780 CALL GSUBV 

0781 RET Zz ;IF CR, DONE. 

782 INC HL 

6783 LD A,7 ;PRINT ADDRESS IF IT 
0784 AND L ;IS A MULTIPLE OF 8 
8785 JR SM1 

Q786 ; 

Q787 ; 

8788 SUBR: LD B,A 

789 CALL GCHR 

B790 cP vend 

0791 JR NZ ,SR2 

792 INC Cc ;TURN ON THE PRIME-FLAG 
8793 SUBR2: SUB A 

8794 SR2: CALL SKSGCR ;WAIT FOR CR 

0795 SR3: LD A,B 

0796 SUB "A'+CASE ;CHECK THE RANGE 
B797 JP C,ERROR 

0798 CP Tyttatiy 

799 JP NC, ERROR 
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-_ 


E2E9 
E2E1 
E2E3 
E2E6 
E257 
E2E8 
E2E9 
E2EB 
E2ED 
E2EF 
E2F1 
E2F3 
E2F5 
E2F7 
E2F9 
E2FA 
E2FB 
E2FC 
E2FD 
E389 
E302 
E3@4 
E307 
E369 
E3@B 
E3@D 
E30F 
E312 
E313 
E315 
E316 
E318 
E31B 
E31¢C 
E31D 


E31E 
E31F 
E326 
E322 
E323 
E326 
E328 
E32A 
E32B 
E32D 
E32F 
E331 


SF 
168 
21D7E3 
19 

7E 

B7 
2833 
LEGO 
CB4l 
2806 
CB76 
2829 
1LE1G 
EO1F 
83 

5F 

€5 

78 
CD12E1 
FE48 
3E4C 
CC12E1 
EE71 
CB41 
2862 
3E27 
CD12E1 


ED52 


78 


CD4DE1 
3885 
@641 
OC 
18A8 
CB4l 
28A4 
C9 


B88 
6861 
6882 
6803 
6804 
6805 
0896 
8807 
6868 
G89 
G81 
8811 
6812 
8813 
6814 
8815 
9816 
6817 
G818 
G819 
6820 
821 
G@822 
8823 
8824 
@825 
6826 
8827 
6828 
G829 
6836 
8831 
6832 
§833 
6834 
6835 
6836 
6837 
8838 
6839 
6846 
@841 
G842 
8843 
8844 
8845 
6846 
6847 
6848 
@849 
6858 
8851 
6852 
8853 
G854 
6855 
$856 


LD E,A 
LD D,@ 
LD HL,RGTBL 
ADD HL,DE 
LD A, (HL) 
OR A 
IR Z,SR6 
LD E,@ 
BIT B,C 
JR Z,SRA4 
BIT PF, (HL) 
JR Z,SR6 
LD E ,DUAF-DUAF2 
SR4: AND 1FH 
ADD E 
LD E,A 
PUSH BC 
LD A,B 
CALL PCHR 
CP "H'4+CASE 
LD A,'L'+CASE 
CALL Z,PCHR 
XOR 'L'+CASE XOR '=! 
BIT @,C 
JR Z,SR5 
LD Apes! 
SRS: CALL PCHR 
LD B, (HL) 
PUSH IX 
POP HL 
SBC HL,DE 
CALL GSUBV 
LD A,B 
POP BC 
RET Z 
f 
SR6: INC B 
RLCA 
JR NC,SR3 
RLCA 
SUBR3: CALL CRLF 
JR C,SR8 
LD B,'A'+CASE 
INC e 
JR SR3 
SR8: BIT ®,C 
JR Z,SR3 
RET 


me BA ee Ne Ne Ne Ne 


;IF ENTRY = 8, SKIP 
;PRIME? 


7;YES. PRIMEABLE REG? 
7IF NOT, SKIP. 


;STRIP FLAGS FROM ENTRY 


7 SAVE 
;PRINT REG NAME 


;CLEAR CY, A= '=', 
; PRIME? 


;SAVE ORIGINAL ENTRY 


;STACK FRAME 

7;HL -> USER REG 

;PRINT VALUE, REQUEST NEW 
; SAVE 


;DONE IF CR 


;NEXT REG 

:Y OR H? 

; IF NEITHER, LOOP 

;YES, IS IT y? 

; [ENTRY FOR DISPLAYING PC 


;YES, IT IS Y,. 
;TURN ON PRIME-FLAG 


;NO. H OR H'? 
;IF H, LOOP. 
;IT IS H'. DON 


m3 


ENTER WITH HL POINTING TO MEMORY & 
B CONTAINING THE 1-BYTE OR 2-BYTE FLAG. 


PRINTS SPACE, CONTENTS OF (HL) 


, & ALSO (HL=1) FOR 


2-BYTE REGS, GETS SUBSTITUTION VALUE & LOADS IT, 
RETURNS WITH Z-FLAG SET IFF THE DELIMITER IS 


A CARRIAGE-RETURN. 
PRESERVES BC & HL. 
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E332 
E335 
E337 
E339 
E33A 
E33D 
E33E 
E33F 
E341 
E343 
E346 
E349 
E34B 
E34E 
E35@ 
E351 
E354 
E355 
E356 
E358 
E35A 
E35B 
E35C 
E35E 
E361 


E362 
E365 
E366 
E368 
E36A 
E36C 
E36E 


E36F 
E37@ 
E372 


E373 
E376 
E379 
E37B 


CDECE1L 
CB68 
2884 
2B 
CDECE1 


CD12E1 
CD44E1 
FE2F 
DC12E1 
386C 
EB 
CDAEE1 
EB 


C41GE1 
o) 


CDA8E1 
7B 
FE@B 
2605 
3E8@ 
D304 
C9 


97 
D354 
cg 


CD52E1 
CDO@EEG 
28FB 
77 


@857 
6858 
6859 
G86G 
6861 
G862 
0863 
6864 
0865 
G866 
6867 
6868 
B869 
8878 
6871 
6872 
6873 
8874 
6875 
6876 
8877 
6878 
6879 
9886 
@881 
8882 
$883 
$884 
G885 
G886 
6887 
6888 
G889 
G8 9B 
G891 
G892 
G893 
6894 
6895 
6896 
6897 
6898 
899 
69GB 
G981 
G9G2 
6963 
G9G4 
6985 
G906 
69087 
6988 
G989 
69108 
6911 
G912 
6913 


GSUBV: CALL 
BIT 
JR 
DEC 
CALL 
GS1l: LD 
RLCA 
JR 
LD 
CALL 
CALL 
CP 
GS2: CALL 
JR 
EX 
CALL 
EX 
LD 
BIT 
JR 
INC 
LD 
GS3: CP 
CALL 
RET 


(ant i aT id i Ll a aL 


---SUBDM 68 7E 


COMMAND 
SELECT UART-A 
UA 
UB 
ART: CALL 
LD 
CP 
JR 
LD 
OUT 
RET 


; 

UARTA: SUB 
OUT 
RET 


COMMAND 


a me Ne Ne we 


, 

READB: CALL 

RB1: CALL 
JR 
LD 
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PNM 
B2F,B 
7 GS 
HL 
PNM 
Ape 


c,GS2 
Agta! 
PCHR 
GCHR 

ts 
C,PCHR 
c,GS3 
DE,HL 
GNHL 
DE,HL 
(HL) ,E 
B2F,B 
Z,GS3 
HL 
(HL) ,D 
CR 
NZ,SPACE 


; PRINT (HL) 
;2-BYTE REG? 


;LO BYTE 
; SUBST-OR-DISPLAY FLAG 


; IF DISPLAY, EXIT. 


; SUBSTITUTION? 
; IF NOT, PRINT ANOTHER. 


;NEW VALUE 


5 585 BY 5 188 DBE++ 


OR UART-B. 


LINCR 
A,E 

BH 

Nz ,UARTA 
A,89H 
APARLP,A 


A 
BPARLP,A 


L2NCR 
CHKIN 
Z,RB1 
(HL),A 


;A OR B? 


READ BINARY INPUT FROM DATA PORT 


;GET MEM ADDRS 
;GET INPUT 


7TO MEM 


a 


E37C 
E37E 
E37F 


E381 
E384 
E385 
E388 
E38A 
E38B 


E38D 
E3998 
E391 
E392 
E395 
E397 


E398 
E39B 
E39C 


E39F 


E3AG 
E3A2 


E3A3 


EDAIL 
Eg 
18F5 


CD52E1 
7E 
CDLEES 
EDA1] 
E@ 
18F7 


CDA8E1 


CDAEE1 
EB 
CDA8E1 


4B 
ED69 
C9 


94CEA292 
88848291 


GBABH8S 


BA 


6914 
6915 
0916 
6917 
G918 
8919 
@92G6 
G921 
6922 
6923 
6924 
8925 
G926 
6927 
0928 
6929 
G936 
6931 
6932 
6933 
6934 
6935 
8936 
6937 
G938 
6939 
B94G 
G94) 
G942 
$943 
6944 
G945 
G946 
6947 
6948 
6949 
G95 
G951 
@952 
8953 
6954 
9955 
6956 
G957 
958 
8959 
C968 
G961 
6962 


6963 
6964 
8965 
B966 
G967 
6968 
6969 


oon 

aum ——— a ee ee ee 
= Ga Gn GE GT GE GE GR) GE RE Ge Game Sr am GA 
oom - ee 

eon 4 cca cum =a once 

—- = ar ar = Ge ee a “EE <REs 


CPI 
RET PO 
JR RB1 
7 
; 
; COMMAND 
7 


WRITE BINARY OUTPUT TO DATA PORT 


WRITB: CALL L2NCR ;GET MEM ADDRS 
WB1: LD A, (HL) 

CALL PBYTE 

CPI 

RET PO 

JR WBl 


COMMAND 
PRINT NULLS ON THE CURRENT DEVICE. 


tA 
, 
f 
; N <NUMBER-OF-NULLS> 
; 
N 


ULLS: CALL LINCR 
LD B,E 
SUB A 
N2: CALL PCHR 
DINZ N2 
RET 
G 
7 COMMAND 
7 OUT <DATA-BYTE> <PORT NNUMBER> 
t 
OUTP: CALL GNHL 
EX DE,HL ;E GETS DATA 
CALL LINCR ;GET PORT NUMBER 
‘ 
LD C,E 7; TOC 
OUT (C),L 
RET 


BAUD RATES. 
WITH THE CROMEMCO TUART: 19209, 9600, 4890, 
2400, 1208, 300, 150, 110. 


WITH THE 3P+S: 2490, 3908, 118. 


UI 0 0 Ne we me we Ne we Ne 


AUDRS: DB 94H ,OCEH,9A2H,92H,88H,84H,82H,1 
LFNN: DB LF,2,@ OR 89H 
PRMPT: DB ':" OR 80H 


; THE COMMAND TBL MUST IMMEDIATELY FOLLOW 


f 
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E3AF 
E3Bl 
E3B3 
E3B5 
E3B7 
E3B9 
E3BB 
E3BD 
E3BF 
E3Cl 
E3Cc3 
E3C5 
E3C7 
E3C9 
E3CB 
E3CD 
E3CF 
E3D1 
E3D3 
E3D5 


E3D7 
E3D8 
E3D9 
E3DA 
E3DB 
E3DC 
E3DD 
E3DE 
E3DF 
E3E@ 
E3E1 
E3E2 
E3E3 
E3E4 
E3E5 
E3E6 
E3E7 
E3E8 
E3E9 
E3EA 
E3EB 
E3EC 
E3ED 
E3EE 
E3EF 


E3F6 


8DE2 
ESE@ 
E5E@ 
23E2 
E5E6@ 
2DE9 
E5E@ 
ESE 
E5E6 
83E1 
8DE3 
98E3 
ECE@ 
E5E@ 
73E3 
BOE2 
ESE@ 
62E3 
66E1 
81E3 


(@046) 
(@8 08) 
(@020) 
(@88B) 


®@DGD4352 


4F4D454D 
434F265A 


0970 ; 
G971 
9972 
6973 
B974 
6975 
6976 
@977 
8978 
0979 
8980 
6981 
8982 
8983 
G984 
0985 
6986 
@987 
6988 
0989 
89908 
@991 ; 
@992 PM: 
0993 
G994 
6995 
0996 
G997 
G998 
G999 
1086 
1661 
1882 
1803 
1804 
1665 
1606 
1267 
1888 
1889 
1610 
1611 
1812 
1613 
1614 
1015 
1816 
1617 
1918 
1919 
1929 
1021 
1@22 ; 
1923 ; 
1624 HEAD: 


DW 
DW 


DB 
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— 
aa = a 


seein tN writin etm 
ee 


= = 


— a 


ea aaa omen o 


enaer 
a 4 


es = a 2 ca : 


THE PROMPT MESSAGE 


DISPL 
ERROR 
ERROR 
GO 
ERROR 
INITBAUD 
ERROR 
ERROR 
ERROR 
MOVE 
NULLS 
OUTP 
PROG 
ERROR 
READB 
SUBST 
ERROR 
UART 
VERIF 
WRITB 


1 SHL PF 
G 

1 SHL 
1 SHL 


B2F 
CRF 


-DUAF OR PM 
-DUBC OR PM 
-DUBC+1 OR PM 
-DUDE OR PM 
-DUDE+1 OR PM 
-DUAF+1 OR PM 
GB 


-DUHL OR PM OR B2M 


-DUIN OR B1M 

g 

4) 

i) 

a) 

-DUIN+1 OR BI1M 
4) 

-DUPC OR B2M 

i) 

i) 

-DUSP OR B2M 

g 

4) 

1) 

g 

-DUIX OR B2M 
-DUIY OR B2M OR 


CR,CR, 'CROMEMCO 


DISPLAY: 
7E 

oF 

7;GO; GO/WITH BREAKPOINTS 
7H 

; INITIALIZE BAUD RATE 

J 

7K 
Pils 

7;MOVE A BLOCK OF MEMORY 
; NULLS 

;OUTPUT 

7 PROGRAM 

70 

:READ BINARY OR ASCII 


DM, DR 


;SUBSTITUTE: SM, SA, SB, 
Tt 
;UART: UA, UB 


; VERIFY BLOCKS OF MEMORY 
;WRITE BINARY OR ASCII 


;PRIMEABLE-REG MASK 
;1-BYTE, REG MASK 
;2-BYTE REG MSK 

7; CARRIAGE-RETURN MSK 


OR CRM ;H [HL] 


iI 


;N [INTERRUPT FF] 


<PC 

7SP 

7X [IX] 

CRM ;Y [IY] 
ZM1.','4' OR 86H 


ae 


ond 
=> GED OSs MeO wes Ge a OEE 
a J = oe 


weg — Er TE SE Gr Gee “er a 


4D312EB4 


1625 ; 
Errors g 
Range Count 4) 


Symbol Table 


ABAUDP ACMNDP ALT APARLP B1M 
B2F B2M BAUDRS BCMNDP BPARLP 
BPMRK BPSTOR CASE CHKIN CL1 
CL2 CLBP CMND CMND1 COM1 
COM3 COM4 COMMON CR CRF 
CRLF CRM CSTART DATA DAV 
DISPL DM2 DSPM DSPM1 DUAF 
DUAF2 DUBC DUBC2 DUDE DUDE2 
DUHL DUHL2 DUIN DUIX DUIY 
DUPC DUSP ERROR ERRV1 ESC 
ESCPE GBYTE GCHR GN1l GNHL 
GNHL® GO Gol GO3 GO5 
GSl GS2 GS3 GSUBV HEAD 
HEXSH HX1 HXSH4 INIT INITBA 
ITl LINCR L2N1 L2N2 L2NCR 
L2NCR@ L3NCR LD2N LENRGS LF 
LFNN MOVE MVE N2 NBRKPT 
NULLS OUTP PlHEX P2HEX P2NMS 
PADDR PBY1 PBYTE PCl PC2 
PC3 PCADDR PCHR PF PH1 

PM PMSG PNHL PNM PRI 
PRMPT PROG PS1 PSNHL PSNM 
RB1 READB RETN RGTBL RSTLC 
RTL RT2 RT3 SKl SKSG 
SKSGO SKSGCR SM1. SPACE SR2 
SR3 SR4 SR5 SR6 SR8 
STAT SUBM SUBR SUBR2 SUBR3 
SUBST SVMS TBE TEMPS UART 
UARTA VERIF VRFY WB1 WRITB 
WSTART 
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ABAUDP 
ACMNDP 
ALT 
APARLP 
B1M 
B2F 
B2M 
BAUDRS 
BCMNDP 
BPARLP 
BPMRK 
BPSTOR 
CASE 
CHKIN 
cll 
CL2 
CLBP 
CMND 
CMND1 
COM1 
CcoM3 
COoM4 
COMMON 
CR 

CRF 
CRLF 
CRM 
CSTART 
DATA 
DAV 
DISPL 
DM2 
DSPM 
DSPM1 
DUAF 
DUAF2 
DUBC 
DUBC2 
DUDE 
DUDE2 
DUHL 
DUHL2 
DUIN 
DUIX 
DUIY 
DUPC 
DUSP 
ERROR 


ERRV1 
ESC 
ESCPE 
GBYTE 
GCHR 
GN1 
GNHL 
GNHL@ 


G887 
G06 
6628 
G88 
6993 
G@21 
8994 
8962 
G2B9 
GG18 
GG17 
@615 
GG28 
G981 
6232 
@245 
G228 
6258 
G266 
0164 
6203 
6208 
G154 
825 
6G23 
6384 
6995 
GP61 
COS 
O011 
@736 
G743 
6740 
@741 
6034 
GG42 
6835 
BH43 
G836 
BG44 
6937 
6045 
OG41 
GO39 
BB4G 
6633 
GG38 
B292 


8368 
6827 
@294 
G898 
8376 
6583 
B496 
G494 


$131 
6133 
@345 
8899 
1965 
@859 
1664 
0136 
G111 
G11 
9233 
@016 
G221 
BBD 
G243 
6234 
0294 
6258 
$365 
8168 
g194 
G206 
@@65 
6137 
6995 
G257 
1884 


GG84 
GG682 
@971 
6752 


@747 
@812 
§812 
6998 


1899 


G182 
6647 
10045 
1626 
1921 
GO47 
1615 
G276 
9984 
G399 
6343 
@344 
GO91 
8378 
G586 
B452 
G458 


1819 
0876 
1612 


6983 
G673 


G269 
8347 


6076 
6356 


C467 
1821 


6163 


6997 
6999 
16@1 
1994 


1919 


@182 
272 
6987 


$346 
6135 
G583 


6461 


Cross Reference 


8994 
1815 1929 1821 


8285 86455 9518 9522 8736 8796 6819 8828 6822 8842 
6911 


G@361 6384 0547 8888 1824 1624 


436 8745 6846 


1882 


1912 


388 562 6668 8797 8799 B972 B973 B975 B977 B978 B979 


0136 8376 
@544 6789 2868 


G@482 8652 0873 6946 
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GO 
GOl 
GO3 
GO5 
GSl 
GS2 
G83 
GSUBV 
HEAD 
HEXSH 
HX1 
HXSH4 
INIT 
INITBA 
ITl 
LINCR 
L2N1L 
L2N2 
L2NCR 
L2NCR@ 
L3NCR 
LD2N 
LENRGS 
LF 
LFNN 
MOVE 
MVE 
N2 
NBRK PT 
NULLS 
OUTP 
PIHEX 
P2HEX 
P2NMS 
PADDR 
PBYL 
PBYTE 
PCl 
PC2 
PC3 
PCADDR 
PCHR 
PF 
PH1 
PM 
PMSG 
PNHL 
PNM 
PR1 
PRMPT 
PROG 
PS1 
PSNHAL 
PSNM 
RB1 
READB 
RETN 


$638 


G642 
G652 
G677 
8863 
6876 
G88 
8858 
1924 
@515 
8524 
6527 
G11 
0130 
8133 
BA82 
6461 
6465 
6393 
G391 
6473 
@452 
6847 
GG26 
G965 
G440 
6618 
6938 
G@014 
6935 
G946 
@581 
@579 
@327 
B489 
GB99 
G698 
@342 
6356 
6368 
C407 
6341 
GB22 
G596 
9992 
BOB4 
@571 
G561 
@312 
6968 
G@362 
G605 
8569 
9555 
6911 
G91B 
8683 


6974 
9675 
8645 
8657 
G868 
6865 
6871 
G78 
$219 
G561 
@521 


6261 
9976 
G139 
6774 
G456 
8459 
G91 
O74G 
G382 
8393 
G249 
6965 
6355 
6980 
6313 
6939 
@815 
6981 
6982 
@579 
G562 


6181 
§354 
G348 


6359 
B742 
§293 
6816 
6588 
6997 
G220 
G489 
@327 
$318 
G26 
8983 
GOB9 
G429 
6426 
G912 
6985 
6643 


6681 


6877 
9831 


G564 


441 


G641 


@572 


6924 


8776 
@377 
6992 


6998 
@261 
G425 
8329 


$428 
8916 


6935 


G44G 


$385 


§999 


G357 


8858 


@743 


6948 


@411 9591 6687 8818 #821 B826 8867 B87H G938 


1906 1981 1002 1004 


6862 
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RGTBL 
RSTLC 
RT1 
RT2 
RT3 
SKl 
SKSG 
SKSG@ 
SKSGCR 
SM1 
SPACE 
SR2 
SR3 
SR4 
SR5 
SR6 
SR8 
STAT 
SUBM 
SUBR 
SUBR2 
SUBR3 
SUBST 
SVMS 
TBE 
TEMPS 
UART 
UARTA 
VERIF 
VRFY 
WBl 
WRITB 
WSTART 


8997 
GG19 
8697 
8711 
6729 
@544 
6543 
@541 
6398 
6776 
8335 
G794 
6795 
6813 
8826 
8836 
6845 
GOO4 
@772 
6788 
6793 
6846 
8769 
6146 
6012 
GG16 
6894 
G9G2 
6416 
G422 
6923 
G922 
6973 


G802 
6647 
8694 
8717 
8716 
8546 
8398 
8267 
8483 
0785 
@555 
8791 
8838 
B889 
8824 
G86 
8841 
6681 


6769 
6737 
6222 
6986 
6649 
G180 
6163 
6988 
6897 
6989 
G320 
6927 
G996 


B658 8667 


G454 g499 
6284 
@794 
8569 9756 


BH844 G846 


$811 


GB99 


435 9442 


G642 


6751 6777 $881 
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Cromemco 
023.0021 wipes as pomeinadle tat 


